home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / packet / terminal / top_152 / src152.exe / rar / TOPOVR3.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-16  |  4KB  |  126 lines
  1. {┌─────────────────────────────────────────────────────────────────────────┐}
  2. {│                                                                         │}
  3. {│                              T. O. P.                                   │}
  4. {│                                                                         │}
  5. {│                        (T)he  (O)ther  (P)acket                         │}
  6. {│                                                                         │}
  7. {│ Unit:  T O P O V R 3 . P A S                                            │}
  8. {│                                                                         │}
  9. {│                                                                         │}
  10. {│ Programmcode, der aus dem Overlayteil nachgeladen wird                  │}
  11. {└─────────────────────────────────────────────────────────────────────────┘}
  12.  
  13.  
  14. UNIT TOPOVR3;
  15. {$F+,O+}
  16.  
  17. Interface
  18.  
  19. Uses CRT,
  20.      DOS,
  21.      OVERLAY,
  22.  
  23.      TOPEMS,
  24.      TOPXMS,
  25.      TOPDEFS;
  26.  
  27.  
  28. (* Proceduren und Funtionen der TOPLINK.PAS *)
  29. Procedure Lnk_Sort(Art : Byte);
  30. Procedure Lnk_Init(TNr : Byte; Freq : Str8);
  31. Procedure ALT_C_Connect(Kanal : Byte);
  32. Function  GetConPfad(Rufz : Str9) : String;
  33. Function  GetConStr(var Zeile : String) : Str80;
  34. Function  LinkExists(Name : Str9; var Gate : Byte) : Boolean;
  35. Procedure LinkMod(var Zeile : Str80);
  36. Procedure RemoteLnk(Kanal,T : Byte; Zeile : Str9);
  37. Procedure SaveLinks(Kanal,TNr : Byte; Freq : Str8);
  38. Procedure LinkLearn(Kanal : Byte; Zeile : Str80);
  39.  
  40.  
  41. (* Proceduren und Funtionen der TOPCRC.PAS *)
  42. Procedure CRC_Datei(var Zeile : Str80);
  43.  
  44. (* Proceduren und Funtionen der TOPCOL.PAS *)
  45. Procedure Color_Einstellung;
  46.  
  47. (* Proceduren und Funtionen der TOPMON.PAS *)
  48. Procedure Stat_MonitorCalls(Kanal : Byte);
  49. Procedure Calls_Monitoren(Kanal : Byte; Zeile : Str80);
  50. Procedure Init_Call_monitoren(Kanal : Byte; Zeile : Str80);
  51. Procedure Cancel_Call_monitoren(Kanal : Byte);
  52. Procedure FreeMonitorKanal(Var KA : Byte ; Zeile : Str80);
  53.  
  54.  
  55. (* Proceduren und Funtionen der TOPMRK.PAS *)
  56. Procedure Merker_Conn_Schreiben;
  57. Procedure Merker_Conn_Lesen;
  58. Procedure Merker_File_Schreiben;
  59. Procedure Merker_File_Lesen;
  60.  
  61.  
  62. (* Proceduren und Funtionen der TOPMAKRO.PAS *)
  63. Procedure Makrozeile_holen;
  64. Procedure Makro_Aktivieren(Zeile : Str60);
  65. Procedure MakroInit;
  66. Procedure Makro_Erlernen(SK : Sondertaste; VC : Char);
  67. Procedure Makro_Open_LearnFile;
  68.  
  69. (* Proceduren und Funtionen der TOPAUTO.PAS *)
  70. Procedure Auto_Aktivieren(Kanal : Byte; Zeile : Str60);
  71. Procedure Auto_Init(Kanal : Byte);
  72. Procedure Autozeile_Holen(Kanal : Byte);
  73. Function  AutoJmpZnNr(Kanal : Byte; Zeile : Str40) : Word;
  74.  
  75.  
  76. (* Proceduren und Funtionen der TOPPASS.PAS *)
  77. Procedure Sysop_Einloggen(Kanal : Byte; Zeile : Str80);
  78. Procedure Password_Auswert(Kanal : Byte; Zeile : String);
  79. Procedure DieBox_PW_Scan(Kanal : Byte; Zeile : String);
  80. Procedure Scan_PW_Array(Kanal : Byte);
  81. Procedure BayBox_US_Scan(Kanal : Byte; Zeile : String);
  82. Function  GetPwParm (Nr : Byte; Zeile : Str80) : Str20;
  83. Function  Found_Pw_Call(Zeile : Str80; Cstr : Str9; AStr : Str6) : Boolean;
  84. Function  PseudoPriv(Laenge : Byte; Pstr : Str20; Dstr : Str80) : Str80;
  85. Function  Check_Parm(Zeile : String) : String;
  86. Procedure RMNC_Auswert(Kanal : Byte; Zeile : Str80);
  87. Procedure TheNet_SYS_Auswert(Kanal : Byte ; Zeile : String);
  88. Procedure EZBOX_Auswert(Kanal : Byte; Zeile : Str80);
  89.  
  90.  
  91.  
  92. (* Proceduren und Funtionen der TOPCONV.PAS *)
  93. Procedure Conv_Tx_All (Kanal : Byte);
  94. Procedure ConversTX (Kanal : Byte; All,Head : Boolean; Zeile : String);
  95. Procedure ConversUser (Kanal : Byte);
  96. Procedure ConversRemote (Kanal : Byte; Zeile : String);
  97. Procedure ConversIni (Kanal : Byte; INI : Boolean);
  98. Procedure ConversAuswert (Kanal,Nr : Byte);
  99. Function  ConversCall(Kanal : Byte) : Str20;
  100. Procedure ConversQuit(Kanal : Byte);
  101.  
  102.  
  103. Implementation
  104.  
  105. Uses  TOPACT,
  106.       TOPACT1,
  107.  
  108.       TOPOVR,
  109.       TOPOVR1,
  110.       TOPOVR2,
  111.       TOPOVR4;
  112.  
  113.  
  114. {$I TOPLINK}
  115. {$I TOPCRC}
  116. {$I TOPCOL}
  117. {$I TOPMON}
  118. {$I TOPMRK}
  119. {$I TOPMAKRO}
  120. {$I TOPAUTO}
  121. {$I TOPPASS}
  122. {$I TOPCONV}
  123.  
  124.  
  125. End.
  126.